﻿Public Class ReservarHabitacion

    Private Sub RNHabi_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RNHabi.CheckedChanged
        CmbTipo.Visible = False
        lstnumeroHabi.Visible = True
        lsttipoHabi.Visible = False
        'llamar habitaciones libres y mostrar su numero
    End Sub

    Private Sub RTHabi_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RTHabi.CheckedChanged
        CmbTipo.Visible = True
        lsttipoHabi.Visible = True
        lstnumeroHabi.Visible = False
        ''Llamar las habitaciones filtrando por el tipo si no hay filtrado mostrar todas
    End Sub

    Private Sub RReserva_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RReserva.CheckedChanged
        GrupoCliente.Visible = True
        GrupoTipo.Visible = True
        GrupoReserva.Visible = True
        GrupoDatos.Visible = False
        limpiarData()
    End Sub

    Private Sub RCancel_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RCancel.CheckedChanged
        GrupoCliente.Visible = False
        GrupoTipo.Visible = False
        GrupoReserva.Visible = False
        GrupoDatos.Visible = True
        limpiarData()
    End Sub

    Private Sub Rnuevo_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rnuevo.CheckedChanged
        'Dim nuevo As New Registro
        'nuevo.Show()
        GrupoDatos.Visible = True
        limpiarData()
    End Sub

    Private Sub Rregistrado_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rregistrado.CheckedChanged
        GrupoDatos.Visible = True
        limpiarData()
    End Sub
    Public Sub limpiarData()
        txtCodigo.Text = ""
        txtAMaterno.Text = ""
        txtAPaterno.Text = ""
        txtNombre.Text = ""
    End Sub

    Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        Me.Dispose()
    End Sub

    Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
        ''Enviar data a la BD
        Me.Dispose()
    End Sub

    Private Sub CmbTipo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbTipo.SelectedIndexChanged
        ''REfinar parametros de llamada a base de datos
    End Sub
End Class